COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.IF ¬XCRIBL THEN DEVICE TTY
C00010 ENDMK
C⊗;
.IF ¬XCRIBL THEN DEVICE TTY;

.REQUIRE "AIMAC.PUB[D,LES]" SOURCE;

.if XCRIBL THEN START
.page frame 53 high 80 wide;
.FONT 1 "BASL30"; FONT 2 "BASI30"; FONT 3 "BASB30";
.FONT 6 "FIX20";
.!XGPLFTMAR←216;
.AT "ffi" ⊂ IF THISFONT ≤ 3 THEN "≠"  ELSE "fαfαi" ⊃;
.AT "ffl" ⊂ IF THISFONT ≤ 3 THEN "α∞" ELSE "fαfαl" ⊃;
.AT "ff"  ⊂ IF THISFONT ≤ 3 THEN "≥"  ELSE "fαf" ⊃;
.AT "fi"  ⊂ IF THISFONT ≤ 3 THEN "α≡" ELSE "fαi" ⊃;
.AT "fl"  ⊂ IF THISFONT ≤ 3 THEN "∨"  ELSE "fαl" ⊃;
.END

.MACRO APP(NAME) ⊂ SECNAME←NULL
.BEGIN SKIP TO COLUMN 1;
.CENTER; SELECT 3
NAME
.SELECT 1; SKIP; SECNAME←"NAME"
.END  ⊃

.EVERY HEADING({SECNAME},,Page {PAGE!});

.TITLE AREA HEADING LINES 1 TO 3
.IF XCRIBL THEN area text lines 4 to 53 IN 2 COLUMNS 4 APART ELSE
.    area text lines 4 to 53;

.MACRO FAC ⊂FILL ADJUST COMPACT ⊃

.MACRO NEXCOL ⊂ SKIP TO COLUMN (IF XCRIBL ∧ (COLUMN=1) THEN 2 ELSE 1) ⊃

.MACRO CB(TITLE) ⊂ BEGIN BREAK TURN ON "←"; SELECT 3
.IF LINES<5 THEN NEXCOL
←TITLE

.END ⊃

.MACRO BC ⊂ BEGIN PREFACE 0; INDENT 1,4; CRBREAK nojust ⊃

.MACRO BS ⊂ BEGIN PREFACE 0; INDENT 1,4; nojust ⊃

.macro IB ⊂
.TURN ON "%";
.if xcribl then AT """" ⊂ SELECT (IF THISFONT=1 THEN 3 ELSE 1); ⊃;
.AT "<" ⊂ SELECT 2; ⊃;  AT ">" ⊂ SELECT 1; ⊃;
. ⊃

.MACRO BI ⊂ BEGIN IB; ⊃

.MACRO OI ⊂ ONCE IB; ⊃

.place text
.portion main;
.FAC; TURN ON "{α"
.NEXT PAGE